devtools::load_all ()
#> ℹ Loading vcr
path <- vcr_tests_pkg_skeleton()
devtools::document (path)
#> ℹ Updating demo documentation
#> First time using roxygen2. Upgrading automatically...
#> ℹ Setting RoxygenNote to "7.3.3"
#> ℹ Loading demo
#> Writing 'demo-package.Rd'
#> Writing 'test_fn.Rd'
#> Writing 'NAMESPACE'
rd_file <- list.files(file.path(path, "man"), pattern = "test\\_fn", full.names = TRUE)
rd <- tools::parse_Rd (rd_file)
get_Rd_metadata <- utils::getFromNamespace (".Rd_get_metadata", "tools")
rd_exs <- get_Rd_metadata(rd, "examples")
rd_exs
#> [1] "list(\"vcr::insert_example_cassette('test_fn', package = 'demo')\")\n\n\ntest_fn\n\nlist(\"vcr::eject_cassette()\")"